Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1225 1845 (N51W55 L=243)   552     62        2 (1199/1820-1253/1870)  53.1 W51-W60 N48-N52
      2  543 1489 (N47E25 L=163)   424    144        1 ( 481/1457- 602/1519)   4.4 E31-E18 N45-N47
      3 1480 1418 (N17W39 L=227)   343     87        0 (1433/1397-1522/1437) -38.7 W36-W42 N15-N19
      4 1752 1233 (S00W53 L=240)  2365    424        2 (1653/1035-1844/1332)  19.8 W38-W63 S08-N03
      5  545 1224 (N29E26 L=161)   597    171        0 ( 465/1189- 624/1253)   0.0 E33-E20 N27-N30
      6 1917 1055 (S16W67 L=255)  2958    233        6 (1865/ 966-1957/1145)  11.8 W57-W81 S20-S11
      7  759 1053 (N15E15 L=173)   725    378        1 ( 610/1018- 908/1098)  -5.7 E24-E04 N11-N16
      8  248 1057 (N24E55 L=133)  1179    118        2 ( 186/1019- 295/1093)  -8.7 E62-E49 N21-N26
      9 1519  992 (S07W28 L=216)   264    132        1 (1493/ 921-1550/1033)  39.8 W25-W31 S10-S05
     10  124  959 (N19E74 L=114)   687     71        4 ( 106/ 918- 148/ 990)  33.7 E78-E68 N16-N21
     11 1345  948 (S05W16 L=204)   252     88        1 (1328/ 901-1367/ 987) -90.0 W15-W17 S07-S02
     12  192  892 (N15E64 L=124)  1849    215        6 ( 143/ 806- 225/ 968) -63.4 E70-E58 N09-N19
     13  757  870 (N04E19 L=169)   273    103        0 ( 709/ 853- 810/ 884)  -9.5 E21-E15 N03-N05
     14 1504  852 (S14W24 L=212)   386    100        3 (1465/ 814-1547/ 878)   9.5 W21-W27 S15-S12
     15 1667  850 (S19W36 L=224)   267     48        1 (1644/ 822-1684/ 872) -76.0 W34-W37 S21-S17
     16 1319  775 (S14W11 L=199)   205     56        1 (1297/ 754-1349/ 794)  14.0 W09-W13 S14-S12
     17 1325  671 (S21W09 L=197)   677    256        0 (1248/ 586-1396/ 779)  33.7 W02-W16 S23-S15
     18  894  737 (S06E14 L=174)   314     87        3 ( 867/ 701- 917/ 769) -78.7 E15-E12 S08-S03
     19 1198  747 (S13W03 L=191)   199     23        0 (1180/ 726-1218/ 765)  45.0 W02-W04 S13-S11
     20  983  730 (S09E09 L=179)   366     79        2 ( 945/ 694-1014/ 756) -63.4 E10-E06 S10-S06
     21  850  646 (S11E19 L=169)   522    134        4 ( 819/ 591- 880/ 691)  56.3 E21-E16 S14-S08
     22 1022  623 (S16E10 L=178)   314     66        2 (1002/ 594-1047/ 658)  53.1 E11-E07 S17-S13
     23  387  454 (S14E61 L=126)  3596    322        9 ( 322/ 300- 449/ 585)  52.7 E75-E54 S26-S05
     24  836  534 (S17E23 L=164)   933    315        2 ( 714/ 501- 987/ 562)  -9.5 E31-E13 S20-S14
     25 1019  401 (S30E17 L=171)   702    221        0 ( 934/ 325-1097/ 456)  18.4 E25-E10 S34-S27
     26  674  431 (S21E38 L=150)   307     36        1 ( 652/ 404- 695/ 452) -90.0 E39-E36 S22-S19
     27  731  295 (S31E42 L=145)   836    188        2 ( 686/ 222- 767/ 368)  29.1 E53-E35 S36-S26
     28  670  317 (S28E45 L=142)   642    109        2 ( 644/ 266- 692/ 366)  32.5 E51-E40 S32-S25
     29  610  321 (S27E50 L=138)   693     94        1 ( 589/ 278- 638/ 359)  60.3 E54-E45 S30-S23
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y