Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1126 1650 (N42E05 L=319)   533     82        1 (1098/1610-1148/1687) -45.0 E07-E02 N39-N45
      2  358 1457 (N16E57 L=267)  1484    180        4 ( 326/1380- 402/1531) -84.3 E60-E54 N10-N20
      3  561 1483 (N21E40 L=284)   333     90        2 ( 519/1456- 599/1506)   9.5 E43-E37 N18-N22
      4 1677 1343 (N30W44 L=  7)   697    226        0 (1599/1267-1729/1426) -33.7 W36-W48 N25-N34
      5 1029 1277 (N15E04 L=320)   349    117        1 ( 999/1241-1071/1337) -45.0 E06-W00 N13-N18
      6 1864 1240 (N27W66 L= 30)   900    143        2 (1839/1188-1895/1285) -50.2 W62-W74 N23-N29
      7 1794 1244 (N26W56 L= 19)   502     51        2 (1773/1215-1817/1268)  53.1 W52-W58 N23-N27
      8 1201  732 (S15W16 L=339)   875    266        1 (1128/ 652-1253/ 781)  69.4 W10-W18 S20-S11
      9 1437  680 (S15W32 L=356)   372    106        0 (1389/ 648-1479/ 715)  45.0 W29-W34 S17-S11
     10  577  639 (S31E25 L=299)  1280    356        2 ( 445/ 585- 749/ 702)  27.5 E37-E12 S37-S24
     11 1125  635 (S22W13 L=337)   227     39        1 (1102/ 616-1146/ 659) -33.7 W11-W14 S23-S20
     12 1538  444 (S28W51 L= 15)  3627    476        4 (1351/ 373-1718/ 543)  34.2 W37-W64 S35-S18
     13  983  382 (S43W10 L=334)  1475    302        3 ( 866/ 348-1125/ 415)  19.3 W00-W20 S47-S38
  

    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