Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  881 1744 (N57W17 L= 39)   401     71        1 ( 849/1723- 909/1764)   7.1 W12-W20 N54-N58
      2 1528 1600 (N25W54 L= 77)   952    207        1 (1449/1548-1612/1640) -45.0 W48-W58 N19-N29
      3  533 1566 (N54E26 L=357)   327     53        1 ( 498/1546- 556/1587) -23.2 E30-E23 N51-N55
      4 1356 1542 (N28W37 L= 60)   357    137        0 (1299/1498-1399/1571) -66.8 W34-W38 N23-N30
      5 1365 1438 (N21W33 L= 56)   448    157        0 (1295/1394-1430/1462) -49.4 W28-W35 N17-N24
      6 1351 1377 (N18W29 L= 52)   227     51        1 (1324/1357-1382/1392) -26.6 W27-W31 N17-N19
      7 1143 1263 (N18W13 L= 36)   776    233        2 (1030/1203-1218/1327) -51.3 W08-W16 N12-N24
      8  417 1153 (N28E38 L=345)   473    100        2 ( 369/1121- 462/1179) -18.4 E42-E33 N25-N30
      9  870 1104 (N15E07 L= 16)   263     61        1 ( 848/1066- 886/1138)  45.0 E08-E05 N13-N17
     10 1877  964 (S21W60 L= 83)  1475    232        2 (1838/ 851-1917/1057)  45.0 W54-W68 S26-S16
     11 1182  951 (S01W07 L= 30)   855    232        1 (1132/ 855-1240/1044)  41.6 W03-W12 S05-N03
     12  454  997 (N18E37 L=346)   280     67        0 ( 442/ 962- 468/1034) -90.0 E37-E35 N15-N20
     13 1879  828 (S30W61 L= 84)   539     53        1 (1850/ 806-1906/ 843) -15.3 W55-W66 S31-S27
     14 1350  703 (S20W11 L= 34)   436    150        0 (1276/ 660-1395/ 730) -35.5 W06-W13 S23-S17
     15 1515  505 (S39W20 L= 43)  1036    195        2 (1439/ 433-1570/ 569)  24.8 W12-W25 S42-S35
     16 1248  525 (S28W01 L= 24)   578    193        0 (1166/ 494-1329/ 568)  -5.2 E04-W07 S29-S26
     17 1395  408 (S42W09 L= 31)   344     54        0 (1376/ 388-1421/ 439) -90.0 W06-W10 S43-S38
     18 1301  354 (S43E00 L= 22)   324     53        0 (1284/ 332-1325/ 385) -90.0 E01-W01 S45-S40
     19  686  248 (S34E52 L=331)   821    100        0 ( 658/ 219- 735/ 288)  81.9 E55-E48 S37-S30
  

    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