Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1674 (N25W65 L= 62)   533     75        1 (1528/1663-1608/1686) -11.3 W60-W70 N23-N26
      2 1511 1594 (N23W52 L= 49)   780    102        1 (1469/1559-1542/1636)  10.3 W46-W57 N20-N25
      3 1374 1560 (N26W40 L= 37)   520     70        0 (1352/1519-1397/1602)  51.3 W38-W42 N23-N28
      4 1349 1423 (N19W31 L= 28)   348    121        0 (1317/1383-1393/1471)  12.5 W27-W36 N18-N20
      5 1120 1391 (N24W16 L= 13)   262     72        0 (1081/1373-1163/1409) -45.0 W14-W18 N22-N26
      6  965 1287 (N23W04 L=  0)   783    298        0 ( 825/1230-1057/1324) -33.7 E05-W07 N17-N25
      7  267 1202 (N35E52 L=304)   873    132        2 ( 217/1161- 329/1248) -21.8 E60-E45 N32-N38
      8  699 1187 (N24E15 L=342)   241    102        0 ( 677/1131- 727/1224) -80.5 E16-E14 N20-N26
      9 1903 1067 (S18W66 L= 62)  1550    142        3 (1840/1024-1954/1101) -23.2 W57-W78 S22-S13
     10 1622 1019 (S11W35 L= 32)   635    163        0 (1581/ 953-1677/1077)  21.8 W31-W41 S13-S08
     11 1840  978 (S21W55 L= 51)   817    146        1 (1819/ 903-1875/1026)  35.5 W52-W59 S24-S18
     12 1233  765 (S13W05 L=  2)   850    302        0 (1177/ 647-1293/ 900)  42.5 E01-W11 S18-S07
     13  484  826 (N08E38 L=319)   744    169        1 ( 434/ 769- 543/ 897) -66.0 E40-E34 N04-N13
     14 1556  796 (S21W26 L= 23)   324     58        0 (1537/ 755-1571/ 828) -90.0 W24-W27 S24-S19
     15 1081  634 (S17E07 L=349)   252    125        0 (1020/ 623-1136/ 646) -33.7 E10-E04 S18-S14
     16 1233  496 (S30E03 L=354)   773    175        1 (1171/ 429-1284/ 545)  21.8 E08-W02 S33-S27
     17  804  416 (S23E32 L=325)   504    194        0 ( 758/ 346- 843/ 481)  32.5 E39-E28 S26-S19
     18  590  271 (S29E60 L=297)   923    120        0 ( 559/ 227- 613/ 317)  19.4 E70-E53 S32-S25
     19  795  228 (S37E47 L=310)   584     91        0 ( 770/ 186- 825/ 272)  56.3 E50-E43 S41-S32
     20  965  219 (S43E35 L=322)   358     27        0 ( 947/ 195- 982/ 241)  33.7 E38-E32 S45-S41
  

    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