Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1505 1656 (N30W50 L=208)   321    132        1 (1446/1625-1556/1678) -35.5 W45-W52 N26-N31
      2 1531 1581 (N24W47 L=206)   921    271        4 (1406/1537-1644/1621) -33.7 W39-W54 N19-N29
      3 1411 1400 (N16W31 L=189)   747    271        2 (1305/1356-1536/1440) -14.0 W24-W40 N13-N19
      4  209 1349 (N35E60 L= 99)  1079    144        5 ( 157/1308- 262/1381)   3.8 E67-E52 N32-N36
      5  328 1297 (N29E44 L=114)   870    148        4 ( 277/1234- 366/1350) -38.7 E50-E40 N24-N33
      6  649 1249 (N21E19 L=140)   964    365        2 ( 483/1202- 795/1291) -10.8 E30-E09 N17-N25
      7  124 1231 (N28E71 L= 88)  1273    107        2 ( 102/1176- 161/1278)  50.2 E75-E64 N25-N31
      8  339 1197 (N23E43 L=116)   287    106        0 ( 283/1186- 387/1211)  -5.7 E48-E38 N21-N23
      9  350 1103 (N17E42 L=116)  1034    172        4 ( 297/1042- 398/1189)  49.4 E47-E37 N13-N22
     10  673 1159 (N15E19 L=140)   218     42        1 ( 649/1138- 697/1183)  56.3 E20-E16 N13-N16
     11 1845 1145 (S06W58 L=217)   503     76        3 (1804/1127-1884/1164)   0.0 W54-W63 S08-S04
     12  945 1017 (N02E05 L=154)   570    229        4 ( 883/ 915- 982/1117) -85.2 E06-E03 S04-N08
     13  250 1009 (N13E52 L=106)  1205    181        2 ( 198/ 941- 317/1095) -55.0 E57-E45 N08-N18
     14  776 1074 (N08E14 L=145)   387    119        0 ( 714/1054- 830/1093)   0.0 E17-E10 N07-N08
     15 1797  992 (S14W51 L=210)  1209    217        4 (1742/ 897-1850/1082) -59.7 W47-W56 S20-S08
     16  376  990 (N10E41 L=117)   578    137        2 ( 326/ 950- 433/1035) -14.0 E45-E37 N08-N12
     17 1254  968 (S06W12 L=171)   272    117        2 (1224/ 920-1280/1029)  56.3 W10-W14 S08-S02
     18  129  984 (N14E67 L= 91)   666     92        3 ( 109/ 934- 159/1025)  68.2 E70-E62 N10-N15
     19 1746  901 (S19W46 L=204)   772    163        4 (1701/ 847-1803/ 953) -45.0 W41-W51 S22-S14
     20 1594  834 (S20W33 L=191)   241     59        1 (1573/ 801-1615/ 860)  56.3 W30-W34 S21-S18
     21  447  674 (S09E43 L=115)   867    311        6 ( 402/ 545- 481/ 828)  50.9 E49-E36 S16-N00
     22  930  761 (S12E10 L=149)   198    111        1 ( 917/ 717- 945/ 824)  71.6 E11-E08 S14-S08
     23 1005  717 (S16E07 L=152)   353    106        0 ( 983/ 657-1030/ 759)  51.3 E08-E04 S19-S13
     24  300  630 (S09E58 L=101)  1425    226        6 ( 239/ 545- 348/ 726) -84.8 E61-E54 S14-S03
     25  330  684 (S07E52 L=106)   326     65        2 ( 306/ 647- 350/ 712) -78.7 E54-E50 S09-S04
     26  823  618 (S19E20 L=139)   607      0        0 ( 735/ 582- 906/ 667)   4.8 E25-E13 S19-S17
     27  241  618 (S09E65 L= 93)   779     96        2 ( 224/ 579- 271/ 665) -78.7 E69-E62 S11-S06
     28 1354  587 (S31W13 L=172)   299     87        1 (1331/ 555-1373/ 640)  59.0 W11-W15 S33-S27
     29  938  535 (S26E15 L=144)   334    107        0 ( 879/ 521- 986/ 562)  -8.1 E18-E11 S27-S24
     30  612  256 (S39E55 L=104)  1302    224        3 ( 586/ 155- 641/ 359)  31.6 E72-E45 S47-S31
     31  992  195 (S53E28 L=131)   592     90        1 ( 951/ 172-1035/ 215) -14.0 E31-E22 S55-S50
  

    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