Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1573 1663 (N26W62 L=275)   409     72        1 (1545/1631-1607/1690) -63.4 W60-W64 N23-N27
      2 1424 1446 (N19W37 L=249)   549    119        0 (1358/1427-1483/1463) -35.5 W32-W40 N16-N21
      3 1384 1304 (N13W28 L=241)   296     89        2 (1355/1277-1417/1335)  11.3 W26-W31 N11-N15
      4 1429 1259 (N09W30 L=242)   245    122        0 (1389/1217-1450/1308)  26.6 W26-W32 N07-N11
      5  643 1186 (N25E19 L=193)   275     79        0 ( 599/1169- 693/1202) -23.2 E22-E15 N23-N26
      6  222 1094 (N28E57 L=155)  1240    213        1 ( 132/1038- 289/1168) -23.5 E72-E49 N23-N33
      7  608  967 (N13E26 L=187)   444    190        0 ( 547/ 898- 658/1030) -66.0 E28-E23 N09-N18
      8  828  987 (N10E12 L=201)   214     46        0 ( 801/ 964- 852/1011) -56.3 E13-E10 N08-N11
      9 1538  664 (S28W23 L=235)   318     89        0 (1523/ 633-1560/ 713) -80.5 W21-W23 S30-S24
     10 1828  683 (S38W53 L=265)   871    103        1 (1782/ 653-1881/ 713)   0.0 W46-W62 S39-S36
     11  747  681 (S06E24 L=188)   225     77        0 ( 709/ 652- 776/ 703) -53.1 E26-E23 S07-S03
     12 1063  643 (S15E07 L=205)   705    229        0 ( 995/ 587-1147/ 699)  10.3 E12-E01 S17-S13
     13  955  657 (S12E13 L=199)   196     68        1 ( 927/ 634- 991/ 674)   0.0 E15-E10 S13-S11
     14 1157  585 (S21E04 L=209)   350    118        0 (1113/ 546-1186/ 637)  29.7 E07-W00 S23-S18
     15  235  573 (S04E72 L=140)   672     65        0 ( 204/ 552- 263/ 597) -23.2 E76-E67 S04-S01
     16 1662  540 (S42W33 L=245)   334     59        1 (1640/ 513-1688/ 569)  36.9 W30-W35 S43-S40
     17  966  517 (S21E17 L=196)   417     66        1 ( 929/ 495-1004/ 538) -45.0 E18-E14 S22-S18
     18  612  349 (S24E48 L=164)  2630    358        4 ( 573/ 193- 654/ 511)  38.4 E66-E36 S36-S13
     19 1481  386 (S47W14 L=227)  1214    178        3 (1396/ 354-1558/ 431)  -3.6 W06-W22 S48-S44
  

    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